home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
asmbler.arc
/
FILUQQ.INC
< prev
next >
Wrap
Text File
|
1988-11-19
|
2KB
|
42 lines
{ IBM Personal Computer Pascal file system unit }
{ Version 1.00 (C) Copyright 1981 by IBM Corp }
INTERFACE; UNIT
FILUQQ (FNSUQQ, INPUQQ, OUTUQQ,
INIUQQ, OPNUQQ, CLSUQQ, CLDUQQ, ENDUQQ,
GETUQQ, PUTUQQ, PERUQQ, PCCUQQ, SEKUQQ,
GTYUQQ, PLYUQQ, PTYUQQ, GFNUQQ, PFNUQQ,
BUFUQQ, NEWUQQ, TFNUQQ, PPMUQQ);
USES FILKQQ; {Must have the correct FCBFQQ declaration}
TYPE
ERRORET = WORD; {return code, error if non-zero}
VAR
FNSUQQ: SET OF CHAR; {allowed chars in a filename}
INPUQQ, OUTUQQ: STRING (8); {filenames for user terminal}
PROCEDURE INIUQQ;
FUNCTION OPNUQQ (VAR F: FCBFQQ): ERRORET;
FUNCTION CLSUQQ (VAR F: FCBFQQ): ERRORET;
FUNCTION CLDUQQ (VAR F: FCBFQQ): ERRORET;
PROCEDURE ENDUQQ;
FUNCTION GETUQQ (VAR F: FCBFQQ; LEN: WORD; DST: ADSMEM): ERRORET;
FUNCTION PUTUQQ (VAR F: FCBFQQ; LEN: WORD; SRC: ADSMEM): ERRORET;
FUNCTION PERUQQ (VAR F: FCBFQQ): ERRORET;
FUNCTION PCCUQQ (VAR F: FCBFQQ; CH: CHAR): ERRORET;
FUNCTION SEKUQQ (VAR F: FCBFQQ; LREC, HREC: WORD): ERRORET;
FUNCTION GTYUQQ (LEN: WORD; DST: ADSMEM): WORD;
PROCEDURE PLYUQQ;
PROCEDURE PTYUQQ (LEN: WORD; SRC: ADSMEM);
FUNCTION GFNUQQ (VAR F: FCBFQQ; LEN: WORD; DST: ADSMEM): WORD;
PROCEDURE PFNUQQ (VAR F: FCBFQQ; LEN: WORD; SRC: ADSMEM);
PROCEDURE BUFUQQ (VAR F: FCBFQQ);
PROCEDURE NEWUQQ (VAR F: FCBFQQ);
PROCEDURE TFNUQQ (VAR F: FCBFQQ);
FUNCTION PPMUQQ (UNUSED1: WORD; UNUSED2: ADRMEM; VAR DST: LSTRING): ERRORET;
END;